OpNames.mesa 2-Sep-78 18:18:51 Page 
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DIRECTORY 

AUoDefs: FROM "altodefs", 
BinaryDefs: FROM "binarydef s" , 
MiscDefs: FROM "miscdefs", 
OpTableDefs: FROM "optabledef s" , 
SegmentDefs: FROM "segmentdef s" , 
StringDefs: FROM "stringdef s" ; 

OpNames: PROGRAM 

IMPORTS BinaryDefs, MiscDefs, SegmentDefs, StringDefs EXPORTS OpTableDefs 
BEGIN 

BYTE: TYPE « Al toDef S.BYTE ; 

CompStringDesc: TYPE «■ RECORD [offset, length: CARDINAL]; 

Names: POINTER TO RECORD [ 
base: STRING, 
mnemonic: ARRAY BYTE OF CompStringDesc] ^ NIL; 

s: STRING ♦- [16]; 

ss: StringDefs.SubStringDe scrip tor; 

InstName: PUBLIC PROCEDURE [op: BYTE] RETURNS [STRING] - 
BEGIN 

SetupArray[]; 

[ss .of f set, ss. length] *- Names. mnemonic[op]; 
s. length <- 0; 

StringDefs.AppendSubString[s,@ss]; 
ReleaseArray[] ; 
RETURN[s] 
END; 

Unknownlnstruction: PUBLIC SIGNAL[name: STRING] » CODE; 

InstCode: PUBLIC PROCEDURE [name: STRING] RETURNS [i: BYTE] « 
BEGIN 

s: StringDefs .Substring <- 0ss; 

ssname: StringDefs .SubStringDescriptor <- [name, , name, length] ; 
sname: StringDefs .Substring ^ @ssname; 
SetupArray[]; 
FOR i IN BYTE DO 

[s .of f set , s . length] ^ Names .mnemonic[i]; 

IF StringDef s.EquivalentSubStrings[s , sname] THEN EXIT; 

REPEAT FINISHED -> 

BEGIN i ^ 0; SIGNAL UnknownInstruction[name] END; 

ENDLOOP; 
ReleaseArray[]; 
RETURN; 
END; 

arraysegment: SegmentDefs. FileSegmentHandle <- 

MiscDefs . Destroy FakeModule[ LOOPHOLE[Bi naryDefs. MopcodeNames]] . seg; 

SetupArray: PROCEDURE « 
BEGIN OPEN SegmentDefs; 
Swap In[ar ray segment] ; 

Names ^ Fil eSegmentAddress[arraysegment] ; 
ss.base ^ Names. base + LOOPHOLE[Names .CARDINAL]; 
END; 

ReleaseArray: PROCEDURE « 
BEGIN OPEN SegmentDefs; 
Unlock [arraysegment]; 
END; 

END. 


